perm filename SEEDAT.OSA[1,ALS] blob
sn#001118 filedate 1972-07-27 generic text, type T, neo UTF8
00010 BEGIN "SEEDAT"
00020 DEFINE ⊂="COMMENT"; ⊂ 6/28/72 To see processed data;
00030
00040 require "comsub.hdr[sys,als]" source_file;
00050 EXTERNAL PROCEDURE SPOOL(STRING S; INTEGER IOCHAN,FLAGS);
00060
00070 INTEGER ARRAY INDATA[0:640];
00080 INTEGER ARRAY LFILE[0:128];
00090 INTEGER ARRAY INNAM[0:23];
00100 INTEGER I,J,K,L,M,P,BPT;
00110 INTEGER CHAN1,CHAN2,CHAN3,EOF;
00120 STRING TFILE,TFILET,FILET;
00130 INTEGER INTOT,SEGTOT;
00140
00150 CHAN1←1; CHAN2←2; CHAN3←3;
00160 CLOSE(CHAN1); OPEN(CHAN1,"DSK",'10,10,0,0,0,EOF);
00170 LOOKUP(CHAN1,"TABLES.DAT",0);
00180 ARRYIN(CHAN1,INNAM[0],24); ⊂ To get over to innam;
00190 ARRYIN(CHAN1,INNAM[0],24);
00200 ARRYIN(CHAN1,INNAM[0],24);
00210 ARRYIN(CHAN1,INNAM[0],24); ⊂ Now this is it;
00220 CLOSE(CHAN1);
00230 TFILET←"INSERT.L0";
00240 IF (TFILE←STRIN("Data file("&TFILET&") = "))="" THEN TFILE←TFILET;
00250 CLOSE(CHAN2); OPEN(CHAN2,"DSK",'10,10,0,0,0,EOF);
00260 LOOKUP(CHAN2,TFILE,0);
00270 ARRYIN(CHAN2,LFILE[0],'200);
00280 ARRYIN(CHAN2,INDATA[0],640);
00282 TFILET←""; FILET←TFILE;
00283 FOR I←0 STEP 1 UNTIL 9 DO BEGIN
00284 TFILET←TFILET&FILET[1 TO 1];
00285 IF FILET[1 TO 1]="." THEN DONE;
00286 FILET←FILET[2 TO 9]; END;
00287 TFILET←TFILET&"DOC";
00288
00290 CLOSE(CHAN2);
00300 OPEN(CHAN3,"DSK",0,2,'10,0,0,EOF);
00310 ENTER(CHAN3,TFILET,0);
00320 OUT(CHAN3,DATIME&" Data in input file "&TFILE&CRLF&LF&"SEGC ");
00330 FOR P←0 STEP 1 UNTIL 23 DO IF INNAM[P]=0 THEN BEGIN
00340 INTOT←P-1; P←24; END ELSE
00350 OUT(CHAN3,CVXSTR(INNAM[P])[1 TO 4]);
00360 OUT(CHAN3,CRLF&LF);
00370 SEGTOT←(LFILE[0]*6)%256;
00380 OUTSTR("INTOT= "&CVS(INTOT)&" SEGTOT= "&CVS(SEGTOT)&CRLF);
00390 BPT←POINT(6,INDATA[0],-1);
00400 SETFORMAT(4,0);
00410 FOR I←1 STEP 1 UNTIL SEGTOT DO BEGIN
00415 OUT(CHAN3,CVS(I)&" ");
00420 FOR P←0 STEP 1 UNTIL INTOT DO BEGIN
00430 J←ILDB(BPT);
00440 OUT(CHAN3,CVS(J));
00450 END;
00460 FOR P←INTOT+1 STEP 1 UNTIL 23 DO J←ILDB(BPT);
00470 OUT(CHAN3,CRLF);
00480 END;
00490 CLOSE(CHAN3);
00500 SPOOL(TFILET,GETCHAN,1);
00510 OUTSTR("Output sent to spooler as "&TFILET&CRLF);
00520 END "SEEDAT";
00530